10 input "D1=" X
20 input "D2=" Y
30 Q= Xdiv Y; R=RM
40 print "QUOTIENT = "
50 print #1,Q;if R print #1," ",R,"/",Y
:return ;run 
